home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / ply15dat.zip / PEGS.INC < prev    next >
Text File  |  1992-10-09  |  2KB  |  64 lines
  1. define peg_center_texture light_wood { rotate <75, 0, 0> }
  2. define peg_base_texture light_wood { rotate <30, 30, 0> }
  3.  
  4. define peg_length      2.5
  5. define peg_width       0.4
  6. define peg_base_width  1.5
  7. define peg_base_height 0.4
  8. define peg_offset      4
  9. define peg_distance    8
  10. define peg_center
  11. object {
  12.     object { sphere <0, peg_length, 0>, peg_width u_steps 8 }
  13.   + object { cylinder <0, 0, 0>, <0, peg_length, 0>, peg_width u_steps 8 }
  14.   }
  15. define peg_base
  16. object {
  17.     object { cylinder <0, 0, 0>, <0, peg_base_height, 0>, peg_base_width }
  18.   + object { disc <0, peg_base_height, 0>, <0, 1, 0>, peg_base_width }
  19.   }
  20. define pegs
  21. object {
  22.    // Peg #1
  23.    object {
  24.         peg_center {
  25.           peg_center_texture
  26.           }
  27.       + peg_base {
  28.           peg_base_texture
  29.           }
  30.       translate <0, 0, -peg_offset>
  31.       }
  32.    // Peg #2
  33.  + object {
  34.         peg_center {
  35.           peg_center_texture {
  36.             translate <0, 0, 20>
  37.             rotate <10, 0, -10>
  38.             }
  39.           }
  40.       + peg_base {
  41.           peg_base_texture {
  42.              translate <0, 0, 20>
  43.              rotate <5, -50, 0>
  44.              }
  45.           }
  46.      }
  47.    // Peg #3
  48.  + object {
  49.         peg_center {
  50.           peg_center_texture {
  51.             translate <0, 0, 40>
  52.             rotate <0, 30, -10>
  53.             }
  54.           }
  55.       + peg_base {
  56.           peg_base_texture {
  57.              translate <0, 0, 40>
  58.              rotate <15, 0, -20>
  59.              }
  60.           }
  61.      translate <0, 0, peg_offset>
  62.      }
  63.   }
  64.